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**F [LE®*1D**AEDPROMPT 
ve 

AAAAAA EEE REEEEES DDDDDDDD PPPPPPPP RRRRRRRR 000000 MM MM PPPPPPPP TTTTTTTITYT ; 

AAAAAA EEEEEEEEE DDDDDDDD PPPPPPPP RRRRRRRR 000000 MM MM = 6PPPPPPPP TITTTTTTTT $ 
AA AA cE dD DD PP PP RR RR OO 00 MMMM MMMM PP PP TT : 
AA AA CE 0D DD PP PP RR RR OO 00 MMMM MMMM PP PP TT ’ 
BA AA EE dD DD PP PP RR RR OO 00 MM MM OPP PP TT é 
BA AA EE 0D DD PP PP RR RR 00 00 MM MM MM PP PP TT $ 
AA AA EEEEEEEE DD DD PPPPPPPP RRRRRRRR 00 00 MM MM = 6PPPPPPPP TT 3 
AL AA EEEEEEEE 0D DD PPPPPPPP RRRRRRRR 00 00 MM MM 6PPPPPPPP TT ; 
AAAAAAAAAA EE i) DD PP RR RR 00 00 MM MM PP TT : 
AAAAAAAAAA EE 0D DD PP RR RR 00 00 MM MM OPP TT é 
RA AA EE 0D DD PP RR RR 00 00 MM MM OPP TT eeee : 
Aa AA EE 0D DD PP RR RR 00 00 MM MM OPP TT asee : 
AA AA EEEEEEEEEE ODDDDDDD PP RR RR 000000 MM MM OPP TT eoee : 
AA AA EEEEEEEEEE DDDDDDDD PP RR RR 000000 MM MM PP TT li : 
LL T1111] SSSSSSSS 3 
LL HII SSSSSSSS é 
LL II $s $ 
LL Il SS 3 
LL II S$ 3 
LL Il Ss 3 
LL 1] SSSSSS 3 
LL Il SSSSSS 3 
LL II $s 3 
LL I] ss 3 
LL II ss 3 
LL Il ss 3 
LLLLELLLLL I1] i I] 53539335 3 
LLLLLLLELLL HII! SSSSSSSS : 
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ACLEDT.SRC AEDPROMPT 882; 31 a 
MODULE AEDSPROMPT 
sea voe=880" ” 


MEW 


: | BEGIN 

: $ Freewest ba wien “eumn “toed “ata nc eT 
Ps :* 
3 : 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
. 1 !* DIGITAL SR eaves” EORPORATION, MAYNARD. MASSACHUSETTS. * 
5 1} } :* ALL RIGHTS RESER * 
: ‘ * 
3 if ! '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
.|. '@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
. 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 1 1 !« COPIES THEREOF iy 4 BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
; 1 1 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ 18 8 ! . TRANSFERRED. * 
Ps 5 we 
H 0 lie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 1 #1! SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ¢ § : + CORPORAT ION. : 
; 4 38 4 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: é 00 é ! :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
4 i 

: ; 8 3 : Hecunenonhbeceteneneinibeesenseeneedlll Eaeceumnereneenbesennbeieeneeeeninned 
ee: ee 

; § § : FACILITY: Miscellaneous utilities 

; 4 4 ABSTRACT: 

: 00 1! This module contains the routines necessary to support the prompting 
: 3 ! functions of the ACL editor. 

; 5 $ 1 ' ENVIRONMENT: 

3; 01! 

; 4g ; ' g VAX/VMS operating system, user mode utilities. 

3 6 1 i- 

3 44 ‘ag 

s 65 45 1: 

; $6 § ‘ AUTHOR: L. Mark Pilant CREATION DATE: 12-Nov-1982 9:50 

; 48 : i MODIFIED BY: 

: 50 50 1: vO3-011 LMP0269 L. Mark Pilant, B-Jun-1984 15:54 

: ; 3 ' ty the AUDIT ~ JOURNAL from the list o supported ACE 

; 1 i 

3 4 i 1! v03-010 LMP0213 t Mert Pilant 24-Mar-1984 12:23 

3 5 ; ' Add support for locking and unlocking the object's ACL. 

; $ 3$ 1/ v03-009 LMP0174 L. Mark Pilant, 22-Dec-1983 9:45 
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Sep-1 :57: AX-11 Bliss-32 V4. 

WPoseontgse 28:52:q0 MCI OL tage v4. 0-74. 
Add support for the NOPROPAGATE option. 

v03-008 LMP0172 L. Mark Pilant, “Nov-1983 12:11 


28- 
Numerous bug fixes, support for VT2xx terminals, and a 
session keystroke logger. 


v03-007 LMP0161 L. Mark Pilant, 4-0ct-1983 14:18 
Correctly mark the ACE as open for existing ACEs as well as 
new ACEs. 

v03-006 LMPO152 L. Mark Pilant, 12-Sep-1983 15:35 

Make the journal name for ALARM and AUDIT ACEs ‘SECURITY’. 
v03-005 dhs Mark Pilan 17-Aug-1983 =14:43 
oan" A. that sould cause ACCVIOs during prompt 

v03-004 LMP0123 L. Mark Pilant -Jun-1983 {ts 44 


22 
Change FLAGS item name to OPTIONS. Also, change OWNER 
access definition to CONTROL. 


v03-003 LMP0103 20-Apr-1983 14:15 
Add support for bippen Ra OROTECTED ACEs. Also do misc 


v03-002 LMP0081 lant 22-Feb-1983 13:12 
Don't call SELECTITER Ay de size is zero and the PROMPT 
flag is not set. 


v03-001 LMP0074 L. Mark Pilant, 21-Jan-1983 12:37 
Fix several bugs that appeared in prompt mode. 
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L18.L32': 
LIBRARY *SYSS$LIBR ARY: TPANAC.L 32"; 


REQUIRE ‘SRCS$:ACLEDT 
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1? ep- AX-11 Bliss-32 V4.0-74 f 3 
Z~S607138E FF:8biS) | PARE des ABe okGaor 62.1 208 125 
SPECIAL NOTE: 
ince this module depends very much upon the actual format of an ACE, it 
BR A tate mperative that the routines within this module track that 


As an aid to determining what etlone of the ACE may be nd Welds: A and 
what port tions ma ay pot. he ACE is d ged up into Stone and fields. 

field is that portion of the Pas text between commas (or betugen aS 
at the beginning or end of the ACE). An item is that portion of a 
tight) between plus signs (or an equal sign on the left and a comma on the 


fot jowtng below are the cyerent ACE types and the field numbers for the 
various portions of the ACE. 


Type: ACESC_KEYID, ACESC_AUDIT, and ACESC_ALARM 
(type_k word, " = + +N , ACC =R* FH + + ° *¢4 +F + 
Siestantes Bf Y Bay Be § ;* 4 


Type: ACESC_BIJNL, ACESC_AIJNL, and ACESC_ATJNL 


Type: ACESC_INFO and ACESC_JNLID 
Not applicable since these ACE types cannot be entered. 
Type: ACESC_DIRDEF 
(DEFAULT _PROT, gyeren: aaaa, Gunee obey. grOUP:cceg. yond dade) 


osteo 194s 7:35:89 PARED SAB SAgbeRoHT 2:1 7 


| 


1 FORWARD ROUT ee 
! AED_ Bert i - NOVALUE, ' geyect next Ace ield 
dD. aH NOVALUE, ! Select next & tem 
! A ety ACE YPE +: NOVALUE; ! Set ACE type text 
1 EXTERNAL ROUTI 
1 ; AED_POSITION, ! Position to selected line 
1 AED_SEGSPLIT ! Split Line segment in two 
140 590 1 AED“PUTOUTPUT; ! General purpose output routine 
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: 10g ; } ! ACE item parsing tables. 

; \e2 ! Macro to define an antry in the item tables. 

; 146 MACRO 

; 146 4 1 ENTRY cores VALUE) 

3 148 ¥ 1 ARCOUNT (STRING), 

FH 133 : } UpLaT « TRING), 

; 13] o ¥ 

; \ § ! Item tables for parsing and prompting. 

: i 5 obe } PSECT PLIT=AED_ITEM_PLIT(OVERLAY,ADDRESSING_MODE (LONG_RELATIVE) ,ALIGN(O)); 

1g Bh feu 

: 159 0 ' ' Legal ACE type names. This must perellel the definitions in SACEDEF, 

; 160 0 ! SPARSE_ACL, and SFORMAT_ACL. The f i entry is repeated because the 

; «6161 10 1! ACE type codes start at 1, whereas it s possible for 0 to occur during 

: 166 +d : i prompting. 

; 164 peig 1 ITEM_TYPE = UPLIT (ENTRY 5 peer eee acesc, KEYID) 

> 165 1 1 ENTRY ("BI_JOURNAL_NAME=", ACESC_BIJNL), 

8 198 61 : ENTRY CALJOURNALZNAM E=", ACESC_AIJNL), 

; 16 O16 ENTRY (°AT_ JOURNAL E=', battetemaceer 

3 168 617 1 NTRY ('AUBIT_JOURNAL=SECURITY', ACESC_AUDIT), 

: 19? gets 1 NTRY (*ALARM OURNALS =SECURITY’, ACESC_ALARM), 

; 170 19 1 ENTRY (* INEORAAT ION! ACESC CANFOD ' Place holder 
> 171 0620 1 ENTRY (ORMS JOURNAL {D') ACESC JNCID), | Place holder 
: 17 0621 1 ENTRY (*DEFRULT PR brecri N', ACESC_DIADEF) 

3 10? bos¢ ! ) NTBLOCKVECTOR Co -BYTEI, 

3 175 4 1! Legal flag names. The wild group and member flags are set based upon 

; 176 r 5 ! ! the format of the UIC. 

3 178 06 > 1 ITEM_FLAG = UPLIT (ENTRY C DEFAULTS". Roth DEFAULT), ! Assumed to be first 
3; 179 0628 1 Y ('HIDDEN+', ACESM_AIDDEN) 

; 180 629 1 ENTRY Y C'PROTECTEBS: ACESH PROTECTE 

; 181 0 1 ENTRY (*NOPROPAGATES" ACESM RNOPROPAGATE) , 

3 16 631 1 ENTRY ("NONE+", 0) ' Assumed to be Last 
3 1ez $636 } ) : BLOCKVECTOR’ C,12,BYTE), 

; 184 ° : ! ! Legal access right names. 

3} 636 ITEM_ACCESS = UPLIT (ENTRY ("READ+", ACESM READ) 

3 188 637 1 ENTRY (‘WRITE+', ACESA_ WRITE), 

: 189 3 1 ENTRY ("EXECUTE+’, ACESM_EXECUTE), 

: 190 i ENTRY ("DELETE+" ACESM_BELETE), 

; «6191 0 1 ENTRY (*CONTROL*+’, ACESA_CONTROL), 

3 136 1 1 ENTRY (*SUCCESS+", ACESM_SUCCESS), 

: 19 § 1 setae (*FAILURE+ ACESM_FAILURE), 

> 19% 643 1 ENTRY (*NONE+! ,.0§ ! Assume to be Last 
3 13? : ' ) : BLOCKVECTOR — 12,BYTE); 

: 138 £8 1 ! Set up constants for the maximum indecies for the TYPE, FLAG, and ACCESS 

; 198 647 1! fields. 


vou-000" IESeect98s GHEEZ:R?  YAECDD PALEHGBSeNSaBG™SRo, OOF asd 


; LITERAL 

3 MAX_TYPE_INDEX = 8, ! Max type fi field index 

; 6 1 MAX~FLAG- INDEX = 3, Max flag field index 

3 ! MAX~ACCESS_ INDEX 27; ' Max access ‘ eld index 
FH 08 4 1 PSECT PLIT=SPLITS(CONCATENATE , ADDRESSING _MODE (WORD_RELATIVE) ,ALIGN(2)); 


Sm 
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: 5 GLOBAL ROUTINE AED_SELECTFIELD (INDEX) : NOVALUE = 

; } i++ 

; i | FUNCTIONAL DESCRIPTION: 

: 1 ! This routine incrementally selects the various fields for an ACE. 
; 13 62 1! The field selection is based upon the ACE type. Because this routine 
. a 1! ssumes to know the format of the ACE text, it is necessary to 
; 16 nsure that it tracks the routine LIBSFORMACL and LIBSPARSACL. 
; 21 + CALLING SEQUENCE: 

3 19 esr : AED_SELECTFIELD (ARG1) 

: 221 e3 1 | INPUT_PARAMETERS: 

3 § 10 : ARG1: address of a word containing the current buffer position 
: 226 O62 1! IMPLICIT INPUTS: 

3 5 per? ! AED_B_FIELD: current field index (position) 

; > 0675 1 ! OUTPUT PARAMETERS: 

a. BL Bai 

: 230 i: 1 | IMPLICIT OUTPUTS: 

: 3 $04 : AED_B_FIELD: current field index (position) 

; 5 0681 1 ! ROUTINE VALUE: 

; 82 1! none 

; 5 0685 1! 

3 § 0684 1 ! SIDE EFFECTS: 

3 0685 1! none 

3 8 2088 1! 

mB wei 

> 241 689 2 BEGIN 

: $08 601 3 MAP 

; ve) Ose INDEX : REF VECTOR C,WORDJ]; ! Address of the size word 
: 24 94 2 LITERAL 

3 <3 ets MAX_ACE_CODE = MAXU (ACESC_KEYID, 

: 48 069: ACESC_BIJNL, 

; 49 9 ACESC_AIJNL, 

8 50 9 id te sp 

3 51 69 ACESC_AUDIT, 

: 26 700 ACESC_ALARM, 

; 25 701 ACESC~ INFO 

: 254 70 ACESC—JNLIO 

; 255 70 ACESC-DIRDEF), 

3 26 704 MIN_ACE_CODE = MINU (ACESC_KEYID, 

3 5 705 ACESC_BIJNL, 

° 28 7 ACESC_AIJNL, 

3 5 7 ACESC_ATJNL, 

; 60 7 3 ACESC_AUDIT, 

: $63 a ACERETINFO,” 

: r% at ACESC"JNLIO, 


HPoseoctoge 28:52:20 pared oLtee 32 y4soo7Kg, re om 


ACESC_DIRDEF); 
LOCAL 

BUFFER .POS. ' Current buffer position 

BUFFER : REF vector C,8YTE], |! Address of text storage 
ECHO_DESC : $BBLOCK COSC$C_S_BLNJ, ! Echo str descr 

vemetine : REF S$BBLOCK, : address of previous Line 
TEMP_LINE, ! Temp display row index 
FIELB_KEYWORD =: REF VECTOR C,8YTE]; ! Address of protection field text 


! Note where the actual text is to start. 
BUFFER = AED_T_CURLINECLINE_T_TEXTI; 
! Check for the end of the Line segment. 
iv AEDT _CURLINECLINE.W_SIZEJ NEQ 0 


BEGIN 
Er gs FEM SUPERER ZG EQL *)* OR .BUFFERC.AED_W_ITEMEND + 1) EQL ‘)' 


BEGIN 
AED_W_ITEMBEG = AED W_ITEMEND = INDEX{O) = 
-AED_T_CURLINECLINE_W_SIZEJ = 1; 


SAN 


Sera SEY SYR REL Es Seana sat oa 


PREPARE FPA FB WIWNIPPPPIPPONONOPONOTUU BB BIO Pfonoronononorofrornornorofnoronornd 
4 _ 


| RETURN; 
0 END; 
5 & ! Determine the current field index. This is done by counting the number of 
074 ! fields from the beginning of the Line. Each field is deleimited by either a 
8 4 ! plus A or a comma. An equal sign causes the field count to advance to the 
8 2 ! next major field type (flags or access rights). 

4 BUFFER_POS = 0; 

4 AED_B_FIELD = .AED_T CURL WEF) 1ME BF TELDST; 

: UNTIL” .BUFFER_POS GEG .INDEXCO 

4 BEGIN 

3 IF .BUFFERC.BUFFER_POS) EQL 'C' 

THEN 

5 BEGIN 

5 UNTIL .BUFFERC.BUFFER_ POS) EQL °)' 

P38 gh ates = .BUFFER_POS + 1; 

786 If .BUFFERC.BUFFER_POS) EQL ',' 

ie THEN a 

26 IF .AED 8 FIELD GEQ 1 AND .AED_B_ACETYPE NEQ ACESC_DIRDEF 

760 THEN AED_B_FIELD = 6 

oe) Fist AED_B_FIELD = .AED_B_FIELD + 1; 

res LF -AED_B_FIELD GEQ 1 

765 BEGIN 

£68. IF o BUFF ERE -Bur ren POs) EQ. ‘=’ 

76 OR .BUFFERC.BUFFER_POS) EQL ‘+’ 
0768 THEN AED_B_FIELD = .AED_B_FIELD + 1; 


Page 
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4 11:52: 
END; 
Bur FER Pos = .BUFFER_POS + 1; 


! Now for the fun part. Perform anything Fhat depends upon the ACE type. 
! This is only relevant if something is going to be added to the end of 
! the current Line segment. Otherwise, simply set the boundaries of the 
! NEXT field. 
Fe EMSS GEQ .AED_T_CURLINECLINE_W_SIZEJ 

BEGIN 


! If this is the first field (the ACE type) and the buffer is empty, fill 
! it with the initial ACE delimiter. 
FO ate EQL 0 AND .AED_B_FIELD EQL 0 
BEGIN 
IF NOT .AED_L_FLAGSCAED_V_PROMPT] THEN RETURN; 
AED_B_ITEM = <1; 
BUFFERLD AS 
INDEXL = AED_T_CURLINECLINE_W_SIZEJ = 1; 


! Now build the ACE depending upon the type. 


OGOOCCCOCCOCOCOOCCOOOCOCOOCOOOOOOOoOoOOoOOo 


FRMNOOOOAOOAOOUUIVNUUR FEE EE BWW BB BI II rroronorororonofruli 


O79 CASE -AED_B_ACETYPE FROM 0 TO MAX_ACE_CODE OF 
0798 CACESC_KEYID, 
0799 ACESC~AUDIT 
0800 ACESC-ALARM): 
Baps BEGIN 
0808 ! Tie off the current field. This must be done now as the field index may 
0804 ! get bumped. 
0805 
Bane IF .INDEXCO) GTR O 
080 THEN 
60 tis BEGIN 
61 09 IF “Burrent tue xco} - 1)_NEQ iy 
$6 0810 AND ae rene’ tapece } - 1} NEQ ‘+° 
0811 AND .BUFFERC.INDEXLO] - 1) NEQ ‘=' 
64 Big THE 
3 Bia ae B FIELD EQ OR .AED_B_FIELD EQL 5 
¢9 15 THEN BUFFERES TNDEXtO) = Mf = 
18 LSE IF .AED B FIELD EQ OR ,AED_B_FIELD EQL 6 
1 THEN BUFFERC. INDEX 8 = ‘s 
18 ELSE puree WOEX = '+'; 
1 IF purceR - INDE XE } EQL ‘=" THEN AED_B_ITEM = -1; 
0 INDEXCO) = .INDEX + Ts 
1 AED_T_CURLINECLINE_W_SIZE] = .AED_T_CURLINECLINE_W_SIZE) + 1; 
¢ AED_B_FIELD = .AED_B_FIELD + 1; 
END; 
4 END; 
5 


ee eT er ee ee 
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§ 


! If the object is not a 
! field, skip the DEFAUL 
i is skipped here, and t 


IF NOT .AED 
AND .AED_B_FIEL 
THEN AED_B_FIELD = .AED_B_FIELD + 1 


If at the field for the ‘NONE’ item, advance to the next field as there have 
e 


directory file. and the current field is the opt fons 
7. - .this is @ two pare operation. The field 

he item is skipped in AED_SELECTITEM. 
L 
] 


FLAGSCAED_V_ DIRECTORY] 
; GEQ 5 Kn6 AFD 8_fTELD LEQ 5 


9290 02.99. 09.09.99 G0 Ge Ge.G0 Go Go C2 0909G90900000000 


OUTRANGE): 0; 
TES; 


Wwt— 


; § 4 

3 4 

3 4 

§ 4 

3 4 

3 4 

; § 4 

; ae 

3 5 4! been items selected for the current f eld, Also, if items have been 

; 388 § 4 ! selected for the current field, skip the ‘NONE’ item, but don't advance the 
3 { 2 ! field position. 

s 3591 9 4 IF .AED_B_FIELD EQL 3 THEN AED_B_FIELD = 6; 

3 4 0 4 IF .AED B FIELD GEQ 3 AND .AED_B FIELD LSS 5 AND .AED_B_ITEM EQL MAX_FLAG_INDEX 
3 4, 1 2 THEN AED_B_ITEM = .AED_B_ITEM # T; 

; 395 8 § 2 ! Skip over SUCCESS and FAILURE items if not ALARM or AUDIT ACEs. 

: 38 0845 4 If .AED_B FIELD GEQ 8 AND .AED_B_ACETYPE EQL ACESC_KEYID AND .AED_B_ITEM EQL 5 
: aS 0 6 | ? THEN AED_B_ITEM = 7; 

; 400 oBc8 4 ! If past the last field, simply return now. This has an implicit NONE item 
3 ret: eh ? ! test for the ACCESS field. 

: 40 0851 5 IF .AED B FIELD GTR (IF .AED_B_ACETYPE EQL ACESC_KEYID THEN 11 ELSE 13) 
; 404 Oe 4 THEN RETURN; 

; 405 0853 4 

; 406 0854 4 ! Locate the last segment that has text. 

3; 407 0855 4 

; 408 bae$ 4 PREV_LINE = AED_T_CURLINE; 

; 409 0857 4 TEMP-LINE = .AED_6 LINE; 

; $19 bee ; UNTIC .PREV_LINECLINE_W_SIZE] GTR O OR .PREV_LINECLINE_V_BEGINACE] 
3 tig ets 2 BEGIN 

3; 41 0861 PREV_LINE = .PREV_LINECLINE_L_BLINK); 

: 616 94 5 TEMP_LINE = .TEMP_LINE =- 1; 

3 415 4 END; 

3 218 0864 4 

3s 41 865 4 ! Determine, based upon the field index, whether or not the keyword must 

3 23 B66 4 ! be added to the Line. 

3 61 4 

: 420 0868 4 IF .AED_B_FIELD EQL 1 OR .AED_B_FIELD EQL 6 

: 621 +4 4 THEN 

3 ? § 4 BEGIN 

: 4 4 re ! Set up the appropriate field text string. 

3 ? $ CASE -AED_B_FIELD FROM 1 TO 6 OF 

: 428 2 13: FIELD_KEYWORD = UPLIT (ZASCIC 'OPTIONS='); 

3; 6 7 6): FIELD_KEYWORD = UPLIT (ZASCIC ‘ACCESS="); 

3 6 INRANGE 

s 6 

; 4 0 

s 6 1 

; 4 2 


Soooooooooo 


SoG000 ws 


! Make sure previous item tied off properly. 


ee eee eee eee a snwKMnr nd 
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; 435 3 3 
i 6 IF .VECTOR CPREV_LINECLINE_T_TEXT : 
; 4 3 PRE. tT INEELINE 0 eile - 1; ,BYTE] EQL '+" ; 
es THEN ; 
3 § BEGIN : 
: 66 PREV_LINECLINE W SIZE] = .PREV_LINECLINE_W_SIZE) = 1; ; 
> 441 IF PREV LINE EQCA AED I CUR FIRE : 
; ry HEN INDEXCOJ = .INDEXCOT - : 
; 443 ELSE AED_W_TOTALSIZE = .AED_W_TOTALSIZE = 1; : 
3 445 IF .VECTOR CPREV LINECLINE T TEXT) ; 
; 446 -PREV_LINECLINE_@_SIZE) - 1; ,BYTE] NEQ °,° ; 
: 64 THEN ; 
$ +8 6 : 
: 66 b IF ren LINE GEQ 1 ; 
; $50 3 
; 451 GIN : 
; 43¢ AED_ POSITION (.PREV_LINE); : 
; 45 SCRSERASE_LINE (.AED B LINE, .PREV_LINECLINE_W_SIZE} + 1); : 
; $36 AED POSITION (AED pT CURLINES; : 
: 456 6 eure: INDEXC0]) = ','; : 
: 657 & INDEXCOD = . INDEXCO) + 4: ; 
: 438 seit T “CURLIWECLINE Ww, ida = .AED_T_CURLINECLINE_W_SIZE] + 1; : 
; 460 CHSMOVE (FIELD KEYWORDCOJ, FIELD KEYWORDC1], BUFFER. INDEXCO33):; : 
> 461 INDEXCO) = .INDE + sf 1ELD_K 3 
; 46¢ AED_T_CURLIN WECLINE W_SIZE) = Ee ? RPURCINECLINE _W_SIZE] + .FIELD_KEYWORDCO); : 
: 46 AED"B-FIELD = .AED-B-FIELD + 1; : 
5 664 AED"B-ITEM = -1; 3 
5 ree 4 ne: : 
: te$ ‘ : 
: 468 CACESC_BIJNL, ; 
> 469 ACESC~ALJNL : 
: 670 ACESC~ATJNLI: : 
; 471 4 BEGIN : 
; rh 2 ! If there is anything typed, assume that a journal name is present. : 
: 475 4 IF .INDEXCO] GTR 1 THEN RETURN; : 
; rth ; END; : 
; 478 CACESC_DIRDEF): ; 
3 2 2 BEGIN : 
: 2 1 2 ! Find the previous non-blank Line. : 
i 4 § 4 PREV LINE = AED.T CURL INE: : 
i 4 4 iF NOt "AED_f-CURLTNECL INE_V, BEGINACE : 
: 6 BEG! : 
; 4 PREV_LINE = .PREV -LINECLINE _L_BLINK); F 
; 489 TERP “LINE = .TEMPTLINE - 3 
: 491 r UNTIL .PREV_LINECLINE_W_SIZE) GTR 0; : 
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! Set up the appropriate field text string. 
case -AED_B_FIELD FROM 1 TO 4 OF 


NOUESWUN “OC ODNOUSWwN—O 


49 
438 ! If past the last field, simply return now. 
495 IF .AED_B FIELD. EQL 
199 = Ved et et VECTOR se RUAPTACEC Ine to exra AED aLlN nec 12 By IE} ,NEQ ‘ 
498 ELSE y CTOR PRED. cinetLin ' ExT), .PREV_L AE tty the -}! ied néQ 
499 THEN RETURN; 
08 ! Make sure previous item tied off properly. 
IF .VECTOR CPREY LINECLINE_T_TEXT] 
PREV. ieee the! Q_SIZE4 - 1; ,BYTE] NEQ ',° 
5 THEN 
BEG! 
0 IF .TEMP_LINE GEC 1 
08 THEN 
09 IN 
1 AED POSITION (.PREV_LINE); 
1 SCRSERASE_LINE (.AED_B LINE, .PREV_LINECLINE_W_SIZE)); 
1 AED POSITION (AED_T_CURLINES; 
1 BUFFER INDEXCO33 6% 
51 INDEXCOD = .INDEXCO] ¢ 4; 
51 AED_T_CURLINECLINE_W_SIZE) = .AED_T_CURLINECLINE_W_SIZE) + 1; 
51 AED-B-FIELD = .AEDB-FIELD + 7; 
31 END: 
1 
; 
4 
5 
5 
5 
; 
5 
& 
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1): FIELD_KEYWORD = UPLIT (ZASCIC ‘SYSTEM:"); 
é : FIELD-KEYWORD = UPLIT (ZASCIC ‘OWNER: '); 
: FIELD-KEYWORD = UPLIT (ZASCIC ‘GROUP:'); 
oe FIELD-KEYWORD = UPLIT (ZASCIC ‘WORLD:"); 
inoe eb (. FIELD KE YwORDLOJ FIELD KEYWORDL1], BUFFERC.INDEXC0I)); 
1 } = .INDEXCO) + sELELD_KEYOORDCO 
¢ AED_T “CURLINECLINE.W_ SIZE = [AED "TCURLINECLINE W_SIZE) + .FIELD_KEYWORDCO); 
AED-B-FIELD = .AED-B-FIELD + 1; 
END? 
5 CINRANGE 
‘ OUTRANGE J 0; 
END: 
re ! Determine the boundaries of the selected field. 
4¢ AED_W ITEMBEG = .INDEXCO) 
4 IF [AED_W_ITEMBEG GEQ AED T_CURLINECLINE_W_SIZEJ 
46 THEN 
45 BEGIN 
46 AED. W_ITEMEND = .AED T_CURLINECLINE_W SIZE) - 1; 
4 AFD B_ACETYPE NEO ACESC_DIRDEF THEN AED_SELECTITEM (. INDEX); 
48 INpex by": ~AED_W_ITEMEND +71; 
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; 56 7 RETURN; : 
: END; : 
; UNTIL .BUFFERE.AED_U_ITEMBEG) NEG | (° ; 
; 1 OR .BUFFERL.AED-W-ITEMBEG Fd we : 
: 554 1 ; OR .BUFFERL.AED-W-ITEMBEG) EQL ' : 
; $55 OF. (.AED_B8 FIELD GTR O AND .BUFFERC.AED_W_ITEMBEG] EQL '+") : 
; 5 1005 BEGIN : 
; a If ;BUFFERC.AED W_ITEMBEG] EQL 'C’ 3 
; 60 1 rs BEGIN : 
: 56 1 4 ae -BUFFERC.AED_W_ITEMBEG] EQL ')' ; 
; 6¢ 13 DO AED.W_ITEMBEG =~.AED_W_ITEMBEG + 1; 3 
: 564 1 1g AED_W_ITEMBEG = .AED_W_ITEMBEG + 1; : 
: 565 101 IF wi _ITEMBEG GEG 7AED_T_CURLINECLINE_W_SIZEJ : 
; 8 i is 4 WEN : 
: 568 1 if 4 ITEMEND = .AED_T_CURLINECLINE_W_SIZE] - 1; : 
: 569 1017 4 heb a (INDEX; ; 
: 570 1 18 4 .AED_W_ITEMEND + 1; : 
: 71 101 $ 
: , } ? END ' : 
3 2 10g¢ ¢ AED_W_ IfEMBEG = .AED_W_ITEMBEG + 1; ! First char past delimiter : 
: 57 13 4 2 AED_W_ITEMEND = .AED_W_]I TEMBEG: ; 
; , 10 : IF TAED_W_ITEMEND LSS 7AED_T_CURLINECLINE_W_SIZEJ : 
: 57 1 : 
; 19 3 UNTIL .BUFFERC.AED_W_ITEMEND) EQL ')' F 
: 581 10 OR :BUFFERC.AED-W-ITEMEND) EQL ',' : 
; é 1030 OR .BUFFERL.AED-W-ITEMEND) EQL °C ; 
5 19 1 4 . (.AED_B_FIELD GTR O AND .BUFFERC.AED_W_ITEMEND] EQL '+") 3 
: 585 1 § 4 BEGIN ; 
; 1 4 IF .BUFFERC.AED_W_ITEMEND] EQL 'C' ; 
3 1035 4 THEN 3 
5 1 BEGIN 3 
; 1 UNTIL .BUFFERC.AED_W_ITEMEND) Eat ‘)' : 
: 390 2 ; DO AED_W_ITEMEND =~.KED_W_ITEMEND + 1; 3 
; % 1040 4 AED_W_ITEMEND = .AED_W_ITEMEND + 1; ; 
3 93 : a “HED. W_ITEMEND GEG TAED_T_CURLINECLINE_W_SIZE] THEN EXITLOOP; 

: 595 1 

; %6 1044 te FAD. W_ITEMEND GTR 0 iten AED_W_ITEMEND = .AED_W_ITEMEND = 1; 

; 4 5 J] = .AED_W_ITEMEND + 1; 

: 538 5 RETURN; 

; 601 1 : END; ! End of routine AED_SELECTFIELD 
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«PSECT ACD_ITEM_PLIT,NOWRT,NOEXE, OVR,O 


00 3D 52 45 49 49 54 4E 45 44 & P.AAB: .ASCII \IDENTIFIER=\<0> : 

45 6D 41 GE 5F i? 41 4E 28 4 af 4A $? 49 3 P.AAC: ASEH \B1_JOURNAL _NAME=\ : 
65 4D 41 GE SF 4C 41 GE S2 SS GF GA SF 49 ; P.AAD: .ASCII \AI_JOURNAL_NAME=\ : 
45 6D 41 GE SF 4C 41 GE 52 55 4F GA SF 564 P.AAE: ASCII \AT_JOURNAL_NAME=\ ; 
53 3D 46C 41 4E S52 5S GF 4A f 54 $4 53 4 P.AAF: .ASCII \AUDIT_JOURNAL=SECURITY\<0><0> : 
53 3D 4C 41 4E 52 3 F 4A f 4D 4] af 4 P.AAG: .ASCII \ALARM_JOURNAL=SECURITY\<0><0> : 
90 6E GF 4 5 4] 40 $3 4 46 4E P.AAH: ASCII \INFORMATION\<0> : 

00 464 469 SF 4C 41 4E 52 55 4F GA SF 53 4D P.AAL: . ASCII \RMS_JOURNAL_ID\<0><0> : 
54 43 465 54 GF S52 50 SF S& 4C 55 41 466 45 P.AAJ: .ASCII \DEFAULT_PROTECTION\<0><0> : 
0 00 4& 4F 49 : 

99 08 P.AAA: .LONG 11 : 

00000" ;ADDRESS P.AAB ; 

00000010 0 1 “LONG 1, 16 : 

' “ADDRESS P.AAC : 

00000010 “LONG 2, 16 ; 

, “ADDRESS P.AAD : 

00000010 “LONG 3, 16 : 

000° “ADDRESS P.AAE : 

00000016 00000004 : 4, 22 : 

6 9° “ADDRESS P.AAF : 

00000016 ~Y 5, 22 ; 

0000000' “ADDRESS P.AAG ; 

00000008 9 0 : : 

0 ' “ADDRESS P.AAH ; 

0000000€ "LONG 7, 14 : 

9 9 ' “ADDRESS P.AAI : 

00000012 99 : 18 ; 

909 00' ADDRESS P.AAJ ; 

28 4 46 55 41 46 <3 4 “ASCII \DEFAULT+\ ; 

90 09 28 44 45 54 43 45 54 4F 52 50 “ASCII \PROTECTED+\<0><0> F 

B 45 54 41 47 41 50 4F 5 50 4 ASCH \NOPROPAGATE +\ F 

00 00 00 28 45 4E 4 Paes years ><0><0> : 

“ADDRESS P.AA : 

0000000 LONG 256 ‘0 : 

“ADDRESS P.AAM ; 

0000000¢ “LONG 512, 12 ; 

“ADDRESS P.AAN ; 

00000005 “LONG 2048, 5 : 

“ADDRESS P.AAO ; 

9 0 44 4 “ASCII \READ+\<0><0><0> ; 

4 “ASCII =\WRITE+\<0><0> : 

8 4 43 4 “ASCII = \EXECUTE+\ ; 

a fe Ge 8S fe ee “ASEH \PENEREL A 

B ey f 2 43 a é ASEH \SUCCESS#\ ; 
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TEEEER 


00000006 
00000008 
00000007 
00000008 
00000008 
00000008 
00000005 
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P.AAW: .A \FAILURE+\ 
: “ABELL NONE*\<0><0><0> 


“LON 
ADDRESS P.AAQ 


1 
1 
1 
1 
1A 
18 “ADDRESS P.AAR 
1B4 “LONG 2, 8 
18 “ADDRESS P.AAS 
iC “LONG 4 
1¢ “ADDRESS P.AAT 
ibe 
1D 
185 
164 
1E 
1F 
iF 
1FC 


<LON 
ADDRESS 6. AAU 
“ADDRESS P.AAV 
“LON 
“ADDRESS P.AAW 
*LON 
“ADDRESS P.AAX 
“LONG 0 
-PSECT AED_COMMON,NOEXE, 
00000 AED_L_FLAGS: 
.BLKB 
00004 AED_B_OPTIONS: 
90005 *BLKB 
0008 AED_L_OBJTYP: 
0000¢ AED _0_OBJNAM: 
00014 AED_L_WORSTERR: 
00018 AED_L_PAGEWIDTH: 
0001¢ AED_L_PAGESIZE: 
00020 AED_B_COLUMN: 
BLKB 


90021 *BLKB 
00024 AED_B_LINE: 


$6038 AED_B_SAVE-COL: 
So03e AED_B_SAVECL IN: 


$0086 AED_O_LINETABLE: 
0003¢ AED_L_CURACE: 
00040 nED.L FLRSTLINE: 
00044 AED_L_LASTLINE: 
-BLKB 4 


os ee Be ee net Sf 2 @ © me @ 


OvR 0 


: 


tt 


~ 
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00048 AED_L eein ie: 
0004C AED_W_ INBUTLE N: 


SES5 seo HE 


00058 AED_Q_DEL_LINE: 
00060 AED_Q_DEL_WORD: 
00068 AED_B_DEL CHAR: 


0069 -BLKB 
006C AED_A_ACLBUFFER: 


00070 AED_Q_OUTLINE: 


00078 AED_W_OBJCHAN: 
ot 8 


LKB 
boore AED_W _TERRIN: 
LKB 


4 


“Ww @ @ 


$0080 AED_W_ reige 


bo8e ace_uieit 


0008C AED_L_STATUS: 
00090 AED_B FIELD: 


we £ © HMM KH KR @O 


80084 AED_W “FEL DBEG: 
0008 AED_W FELDEN: 
$09¢ AED_B_ ret: = 
ttt AED _W _ITERBES: 
BOOAG AED _W Sais 
BOOKS AED_B METRE: 


BOOK AED_W _ JOURNAL: 


80080 aco _t cuit: 
-BLKB 
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PULSES 
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002C4 AED_W_TOTALSIZE: 


$568 JOURNAL FAB: 


BL 
00318 JOURNAL _WAM: 

-BLKB 96 
00378 JOURNAL_RAB: 


Sm 


-BLKB 68 
0038¢ JOURNAL XABPRO: os 
00414 JOURNAL BUFFER: . 
00416 ‘BLKB : 

042 JOURNAL INDEX: : 
00424 RECOVER_FAB: ns 
00474 RECOVER_NAM: 

-BLKB (96 
00404 RECOVER_RAB: 

-BLKB 68 
00518 RECOVER_BUFFER: 
00522 ‘BLKB 2 

0524 RECOVER_INDEX: 

-BLKB 4 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


0000 P.AAY: .ASCII <8>\OPTIONS=\<0><0><0> : 
Q00C P.AAZ: ASCII <7>\ACCESS=\ ; 
0014 P.ABA: ASCII <7>\SYSTEM:\ ; 
O01C P.ABB: .ASCII <6>\OWNER:\<0> 3 
Base P.ABC: .ASCII <6>\GROUP:\<0> 3 
002C P.ABD: ASCII <6>\WORLD:\<0> : 
ITEM_TYPE= P.AAA 
ITEM~FLAG= P.AAK 
ITEM“ACCESS= P. AAP 
-EXTRN CLISGET VALUE, CLISPRESENT 
-EXTRN LIBSFREE VM, LIBSGET_VM 
“EXTRN LIBSTPARSE, SCRSDOWN SCROLL 
SEXTRN SCRSERASE LINE, SCRSERASE PAGE 
SEXTRN SCRSSET_CORSOR. SCRSSET SCROLL 
SEXTRN SCRSUP_SCROLL, AEDS OBJCOC 
-EXTRN AEDS$_BADKEEP, AED$_COCATERR 
“EXTRN AEDS~INIREADERR 
“EXTRN AEDS$~JOUWRITERR 
SEXTRN AED$~JOUOPENOUT 
“EXTRN AED$~JOUCLOSOUT 
SEXTRN AEDS-RECREADERR 
*EXTRN AED “RECOPENIN, AEDS RECLOSEIN 
SEXTRN AEDS$~BADUIC, AEDS _BADGRPRER 
TEXTRN AEDS"SYNTAX, AEDS BADTYPE 
EXTRN AEDS-NOITEMSEL, AEDS_MUSTENTER 
SEXTRN AEDS"INIOPENIN, AEDS"INICLOSIN 
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oc S 
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XTRN DEFSYNTAX, AEDS$_NODELETE ’ 


AED 
AEDS“NOMODIFY, AEDS ROHIDDEN 

XTRN AED =PUPLI ate. AEDS_NOCOMBINE 
AEDS~ AULT; AEDS-NOCTRLCHAR 
AEDS_NOTF OUND AEDS_CONTROL_C 


e*eesteee##e#e# @ 
=< 
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XTRN “ACLUPDATED + 
XTRN AED NOCHANGE. AED_POSITION 
XTRN AED_SEGSPLIT, AED_PUTOUTPUT 
.PSECT $CODES,NOWRT,2 
OFFC 00000 -ENTRY AED SELECTFIELD, Save R2,R3,R4,R5,R6,R7.RB,~; 
000G CF 9E 0000 MOVAB AED POSITION, R11 : 
000 CF 9E 0000 MOVAB P.ARY, R1 F 
000° ce 3 o00¢ MOVAR AED _B FIELD, R9 : 
34 nS iH 0014 MOVAB AED_T_CURLINE+20, BUFFER ; 
8 Ag 18 MOVZWL AED-T-CURLINE*8, "R : 
28 13 0001C BEQL = 2 : 
04 AC 001 MOVL INDEX, R1 : 
61 aC 0 : MOVZWL (R1), RO : 
6046 } 90 3 C PB (RO) CBUFFERI. #41 : 
14 A 3¢ 0058 MOVZWL AED_W_ITEMEND, RO : : 
01 A046 J 002F PB (RO) CBUFFERI, #41 : 
10 12 000 BNEQ $ : 
A : : 
50 BO 000 MOVW RO. AED_W_ITEMEND : : 
50 B0 0041 nov RO, AED~W7ITEMBEG ; 
50 ps 0046 2s: CLRL BUF FER_POS : 
30 a9 90 004 HOVE AED T_CURLINE+16, AED_B_FIELD F 
00 &D 0056 38: cMPIV #16, (R7), BUFFER_POS ; ; 
6046 i 0097 CWPB {BUFFER POS)(BUFFERI, #91 ; ; 
6046 91 OO0SE 48: CHP (BUFFER #OS)CBUFFERI, 493 : 3 
59 06 INCL BUFFER_Pos ; F 
6045 9 069 58: CPB UFFER_POS)CBUFFER], #44 : ; 
69 98 0006F TSTB AED_B_FIELD : Y 
18 A : 7 CPE AED_B_ACETYPE, #9 ; 
% 19 ROVE #6, AED_B_FIELD : 
6 7 g$: INCB AED_B_FIELD : 
i 1ST AED"B-FIELD : 
6046 CMPB (BUF FER_POS)CBUFFER]. #61 : 
06 BEQL 8 : 
604 A CMPB BUFFER_POS) (BUFFER), #43 : 
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TB. 1984 23:57:20 AX-11 Bliss-32 V4.0- Pa AE| 
eet y a TE ttt Pte te ae oe ve 

ee 3 ° 
9 11 001C BRB 6 : ; 
58 6A ‘ iC 34$: ROVAB AAY, FIELD KEYWORD : 0876 ; 
: : AA 9E 001C9 358: MOV P. “AAI FIELD _KEYWORD : 0877 ; 
A 1CD 368: MOVZWL (PR Ate RO ; 0885 3 
B 13 A04 101 CMPB 6 Wrbaey LINE], #43 : ; 
1 106 BNEQ $ : ; 
08 A e 1D DECW (PREV NE) + 0888 ; 
50 A F 1DB ' MOV AED T “tui The RO + 0889 ; 
3 é 1DF CMPL PREV_CINE, R : ; 
g 1Ee BNEQ 37 : ; 
67 é 1E DECW gk ) + 0890 ; 
4 11 166 BRB 8$ : : 
0234 C9 87 OOIE 378: DECW AED W TOTALSIZE + 0891 ; 
50 08 A2 3C OO1EC 38$: MOVZUL (PRED L R + 0894 ; 
2c 13 A04 O1F CMPBs«19(R SEPREY. LINE], #44 : ; 
ef 13 OO1F BEQL ©: 40$ : ; 
1 05 OO1F TSTL spr + 0897 ; 
1¢ 15 001F9 BLEG 39S : ; 
52 DD O1Fe PUSHL PREV JL INE + 0900 ; 
6B 07 FB OO1FD CALLS RED POSITION : ; 
7E 08 A2 3C 00 MOVZWL StOREY _CINE), -(SP) + 0901 : 
3 6 0 INCL (SP) : ; 
7E 94 AD 9A 00 MOVZBL AED L : : 
000000006 00 0g FB OO20A CALLS “BeRSEnise_ OOTNE : : 
20 AS 9F 00211 PUSHAB Ae I + 0902 : 
01 FB 00214 CAL “RED POSITION : : 
gf € 00217 39$ MOV ZWL ,R + 0904 ; 
6046 C 90 OO21A MOV #44, (RO) CBUFFERI : ; 
67 B6 0021 INCW Os (R : 0 ; 
28 «AD = B6 00 INCW AED_T_CURLINE+8 + 0906 ; 
1 68 A 0 40$ MOVZBL (F FLD KEYWORD), R1 + 0908 F 
0 : c é MOVZWL (R7) : ; 
6046 01 A 1 0229 MOVC3 {(FIELD KEYWORD), (RO) (BUFFER ; ; 
5 68 9A 002eF MOV ZBL CF fet KEYWORD) . + 0909 3 
é 50 Ad 00 : ADDW2 RO : ; 
50 6 9a 00 MOV ZBL riecp XEYWORD), RO + 0910 ; 
28 «AD : AO 00 ADDW2 RO AEDT rGURLINE*8 ; : 
6 6 0023C INCB AFB ECD + 0911 3 
oc ad 1 F MNECB Rett _B_ITEM F : 
OOAF 4 41s BRW si F ; 
01 67 ei 45 42 CMP (R7), #1 : ; 
F8 a 48 BLEQU 41$ ; : 
52 0 a ae 4B 43$: MOV AED_T_CURLINE PREV, LINE ; ; 
1 4 AD 9A 0024 MOVZBL AEDTB“LINE, TEMP_L ug E ; : 
08 A AVE BLBS  AED"T gCURLINE* 102 5 ; 3 
ta es 44$:  MOVL 4 (PREV_LINE), bey LINE ; : 
51 D B DECL TEMP LINE : 09 : 
08 A TSTW B(PREV, LINE) : 0939 ; 
F BEQL 4$ : ; 
04 6 45%:  CMPB AFD _B_FIELD, ry > 0943 ; 
BNEQ 4 : ; 
50 28 «Ad 3C MOVZWL AED_T_CURLINE+8, RO > 0944 ; 


| 


9 
AEDSPROMPT 15-Sep-1984 23:57: AxX-11 Bliss-32 V4.0-7 Pa 
vo-000 ee teat) Pe) a YR ee ts tLe eae Pee - 
5 B BLEQ 46 : 
2c 33 aoe é CHB AED. T ppenyeees:, Te : 
0 0 C 00274 46$: MOVZWL 8(PREV_LINE), R : 
30 0§ nose } 78 CMPB eer By rbary CINE), #44 : 
; £0 47$: peal 48$ 3 
50 98 A C 0 48$: MOVZWL (PREV LINE), RO : 
2c 13 A04 CMPB 9(RO)CPREV_LINE], #44 : 
oy 9 BEQL 0$ : 
1 p TSTL § TEMP_LINE ; 
1A 0 BLEG 46 49 * : 
: bd F PUSHL PREV L INE ; 
$B 01 FB 00291 CALLS KED POSITION : 
E 08 Ag C 9 94 MOVZWL BtbREY CINE), -(SP) ; 
43 4 Aad 9A 00298 MOVZBL AED_B tin , = : 
000000006 0 08 FB 00 "6 CALLS #2, SCRSERASE_LINE : 
20 AD OF OO2A PUSHAB AE CURLI : 
01 FB 00 Ag CALLS at POSITION $ 
5 sf af O2A9 49S: MOVZWL Ro 3 
6046 ‘ 90 002AC MOVB nt) * (RO) CBUFFERJ : 
67 86 002B0 INCW = (R75 : 
28 AD b> 0 Be INCW  AED_T_CURLINE+8 ; 
69 96 0028 INCB AED"B-FIELD : 
03 01 69 8F 00287 5S0$:  CASEB A be FIELD, #1, #3 ; 
001A 0014 000E 0008 00288 51$: «WORD > $=313.- : 
54$-51$.- : 
55$-51$ : 
58 14 AA YE 002C3 52$ MOVAB P.ABA, FIELD_KEYWORD : 
10 11 002C7 BRB 54$ ; 
58 1¢ AA YE 00209 538 MOVAB P.ABB, FIELD_KEYWORD ; 
0A 11 002CD BRB 56$ ; 
58 24 AA QE OO2CF 54$:  MOVAB P.ABC, FIELD_KEYWORD ; 
04 11 002D3 BRB 56$ : 
58 2c AA 9E 00205 55$:  MOVAB P.ABD, FIELD KEYWORD : 
31 68 9A 0 09 56$: § MOVZBL CF LELB KEYWORD) : 
0 ; ¢ ye MOVZWL (R7), RO : 
6046 01 A 1 O2DF MOVC3 R1, IC(FIELD KEYWORD), (RO) (BUFFER ; 
5 8 9A 002E5 MOV ZBL (FLELD_KEYWORD : 
6 0 AO 00268 ADDW2 RO, (R7) : 
50 68 9A O02EB MOV ZBL (FIELD KEYWORD), + 0980 
28 «AD AO 002E ADDW2 RO, AEDT CURL INES : 
69 % 0 F INCB AED B_FTECD : 
10 a9 8 F4 57$: MOVW  (R7T, "AED W_ITEMBEG : 099 
28 «AD 10 ag 81 r8 cP AED W_ITEMBEG, AED_T_CURLINE+8 : 0991 
16 Ad 28 «Ad 0 AS FF SUuBW3 «#1, AED_T CURLIN +8, AED_W_ITEMEND + 0994 
09 18 «Ad 93 5 CMPB = AED_B_ACETYPE, # : 0995 
48 1 BNEQ  62$7 : 
4D B BRB 6 $ : 0996 
5 10 ad 3C 58$:  MOVZ AED oy ITEMBEG. R RO : 1000 
30 6046 9A 0031 MOVZBL & TEBUFFERI, : 
5 1 1 CMPB 3 
1 BNEQ : 
2c 1A CMPB sO, #44 > 1001 
D 13 0031D BEQL 4s«64$ ; 


nr ne EN Oe RT NN Ree ear ee ee ee ee ee = 


9 
AEDSPROMPT 18-5 -1984 23:57: AX-11 Bliss-32 V4.0-74 Page 23 
vne000 ee oe re | re ee Pt Pt ee ae 8 
29 ; ii } f CMPB RO, #41 : 1002 : 
1 EQL 4064S ; : 
i é S16 AED 8 FIELD + 1003 : 
6 BEQL ©: 59$ : : 
28 0 CMPBséRO, #43 : : 
F 8 BEQL = 648 ; ; 
58S i 9 D 59$: CnPE RO, #91 : 1006 ; 
50 10 A Hi ; 60$:  MOVZWL AED ¥ ITEMBEG. R + 1009 : 
SDF 6046 91 t CHP (ROJCBUFFERI, #9 ; : 
10 i 86 INCU AFD _W_ITEMBEG ; 1010 : 
10 A 86 43 61$: INCW AED_W_ITEMBEG : 1012 
28 Ad 10 a? 8 46 CMP AED-W-ITEMBEG, AED_T_CURLINE+8 ; 101 
14 Ad 28 «Ad o} AS 4 SUB #1, AED_T_CURLINE+8, AED_W_ITEMEND t 1016 
0000v CF 1 73 § $3 7 CALLS ri AED_SELECTITEM Bisa 
Pe ee aa a igs 
16 Ad 10 Ag ti § SF 0 sCMOVW «= AED WT ITEMBEG, AED_W_ITEMEND : 1034 
28 AD 14 ag eI 0364 CMPW AED-W-ITEMEND, AED~T~CURLINE+8 + 1025 
43 1E 00369 BGEQU 69$ : 
51 16 Ad 3¢ 0368 MOVZWL AED_W_ITEMEND, R1 : 1028 
30 6146 3A 00 of 65$: MOV ZBL (RIS CBUFFERI, RO 
2 a a oe | 029 
3 3 09 7B BEaL «6s 98 : 
28 0 91 0037D CMPB sO, «#40 : 1030 
2c 1 00 80 BEQL «6s«69$ : 
69 95 0038 TSTB  AED_B_FIELD : 1031 
2B 83 bt boaKe ie ee ; 
23 13 00 Hy BEQL : 
SB OF 30 I 0 i 66S: CAPE RO, #91 ; 1034 
50 16 Ad xt 0391 67$:  MOVZWL AED W_ITEMEND, RO : 1037 
SD OF 6046 ] 0 95 (MPB Ss (ROSCBUFFER], #93 : 
05 1 9A BEQL : 
16 Ad Bb 039¢ INCW AED __1TEMEND : 1038 
14 Kg 5 p Ki ces: [acu hed. w trenen : 1040 
51 12 9 SC 0084 MOVZWL AED"W7ITEMEND, R1 : 1041 
1 28 «AD et AB CMPW  AED-T-CURLINE+8, R1 ; 
C1 1A OO3AC BGTRU $ ; 
4 A 8 AF 69$: TSTW AFD _W_ITEMEND > 1044 
03 3 B BEQL © 70$ ; 
14 AB B3 DECW. AED_W_ITEMEND : 
67 14 Ad 01 al B6 70% ADDU #1,~AED_W_ITEMEND, (R7) 1045 


3; Routine Size: 956 bytes, Routine Base: S$CODE$ + 0000 


Q 
HB-seo-198 25:57:20 YAN! Bliegc32 veo-742 Page 


: 605 } } GLOBAL ROUTINE AED_SELECTITEM (INDEX) : NOVALUE = 

i oop 108 Tt 

; 607 24 | FUNCTIONAL DESCRIPTION: 

; 609 1 2$ 1 This routine incrementally selects the various items for an ACE field. 
3 ei? ’ 5 : The item selection is based upon the ACE type. Syntax is checked. 

; 61g 1989 1 ' CALLING SEQUENCE: 

: OF 1989 : : AED_SELECTITEM (ARG1) 

; gi 1086 1 | INPUT_PARAMETERS: 

3 618 \Se7 } : ARG1: address of a word containing the current buffer position 

; 618 1065 1 | IMPLICIT INPUTS: 

PS ook mG 

: 621 1068 1 | OUTPUT PARAMETERS: 

; 6 10 1! none 

: 6 : 1090 1 3 

: 6246 1071 1 =! IMPLICIT OUTPUTS: 

: ° 5 1974 ! : AED_B_ITEM: current item index (position) 

¢ ; 1074 1 ! ROUTINE VALUE: 

ae pe 

; 630 1097 1 | SIDE EFFECTS: 

; 631 1978 1! none 

fe BBL 

: ro 1083 B 

; 635 108s BEGIN 

eee 

: ree 1085 INDEX : REF VECTOR C,WORD); ! Address of the size word 
Be TRB a 

: 641 1988 JOURNAL _ACES : INITIAL (0); ! 0 = no journaling ACEs 

: O46 3 ! 1 = journaling ACEs allowed 
: 664 1091 2 LOCAL 

3 bie 1032 ITEM_DESC : REF SBBLOCK, ' Address of item descriptor 
3 666 199 OLD_TTEM_END ' Where old item name ends 

3 64 1094 PARTIAL_CENGTH, i Size of remaining segment 
; 648 1095 U : REF VECTOR C,BYTE], ! Address of text storage 

3 eh} 1097 MAX_ITEM_VAL; ! Upper Limit to ITEM pointer 
; 631 1098 BUFFER = AED_T_CURLINECLINE_T_TEXT); 

; $26 11 ! Set the next item index. 

3: 654 1101 

3 $3? 1% § AED_B_ITEM = .AED_B_ITEM + 1; 

; re] 11 ! Range check the upper Limit based upon the field type. If the upper bound 
$ 638 ibe ! is exceeded, wrap to zero. 


ve 


om 


<> 


o7138e 97:50:81 PACT EDr SRESaeppRoneT 682: 1 ee zt 


660 if . rie D EQ O 
96 HEN MAX_TTEM VAL = MAX TYPE INDEX 
ELSE if ~AED_ 6 FIELD GEG 2 AND .AED_B FIELD LEQ 5 

HEN MAR_TTEM_VAL = MAX_FLAG 5 

LSE MAX" ITEM_VAL = MAX-ACCESS INDEX 
66 IF .AED_B_ITEM GTR” .MAX_ITEM_VAL THEN AED. _B_LITEM = 0; 
£08 ! If this is the first field, set up the ACE t yee; Also, make sure that 
668 i INFO and JNLID ACES are skipped. Lastly, skip the DIRDEF ACE type for 
088 i nenndiracters objects. 
671 i -AED_B FUELS QL 0 THEN AED_B_ACETYPE = .ITEM_TYPEL.AED_B_ITEM, ITEM_VALUE]; 
ore WHILE .AED_8 iti be EQL ACES “1RFO 3 _* = 
67 OR "AED -BCACETYPE EQL ACESC_JNLID 
674 OR .AED“B-ACETYPE EQL ACESC-AUDIT 
675 OR +. AED_B_ACETYPE EQL ACESC_DIRDEF AND NOT .AED AFL F age V_DIRECTORY]) 
676 OR (NOT 7 JOURNAL_ACES AND (.AED_B_ACETYPE EQL ACEST_BIUN 
67 -AED-B_ACETYPE EQL ACESC_A Int oR 
ors -AED-B_ACETYPE EQL ACESC_A 
eee 
eH ( 
rey JAC = ITEM. TYPE KED_B_ITEM, ITER VALUE); 
oes END; 


! If beyond the end of the ACE, don't even try for an item. 


Se 


oss IF .AED_B_FIELD GTR 6 + .MAX_ITEM_VAL + 1 THEN RETURN; 

690 ' Seer ne Bee Fee BB eoWeoBw wee an mM ee Nw BE DEB TOME e ne weweroe were en wee SB Beer eB OTE Be ewe Bow eee ewe wee em we 
691 i The order of the following three tests is important because of the ordering 
69 ! assumed in the item tables. The first test must be for the SUCCESS and 

69 ‘ PAILURE items in a KEYID ACE (this test may bump the item index up). The 

694 ! next test must be for the NONE item (this may wrap the item conas to 0). The 
o3? ! final test must be for the DEFAULT item (this is at item index 0). 

637 ! Skip over the SUCCESS and FAILURE items if not AUDIT or ALARM ACEs. 

$9 IF .AED B aii GEQ 7 AND .AED_B_ACETYPE EQL ACESC_KEYID AND .AED_B_ITEM EQL 5 
£20 THEN AED_6_] = 7; 

70 ! If pos t ° E item, and there has already been something chosen 


Sleit it. 


PUPP FUSIIIIA EBS BS BB BE EE EMA IAI II RPP NPONONNIDN 2 OO SS SS SOOO 


ee ee ee cc cc ee ee ee ee ae ee ed ed od od 
cee ee ee ce ce ee ee a ce ce ce ee ee ee ee ee ae ed ed ed ed dd dD 
SS SS SAN OOo NOME GI BOSS MOAR IN OD OOo OOO OL MONS UU ODee we 


4 
4 I 
-5. TJNL)) 
dO 
BEGIN 
AED_B_ITEM = .AED B_ ass 
IF TAED_B_ITEM GTR [MAX IT en VAL_THEN AED B ITEM = 0; 
AED_B_ACETYPE = . 


Be Se Se Se Ge Be Se Se Ge Oe Ge Fe Se Ge Fe Se Se FF Se FF Se Ge Se Se Se Ge FF Ge Fe Ge Fe Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se FF Se Se Se FF Se Se Se Se Se Sees 


If .AED_B_ L AND .AED_B_ FIELD LEQ 5 AND ante B_ITEM EQL MAX_FLAG_INDEX 
£06 -AED_B_FIEL Q 8 AND (.AED 6 ACETYPE EQL ACESC_KEYID 
70 OR .AES_B_ACETYPE EQL ACESC.A AUDIT 
oe OR .AED-B_ACETYPE EQL ACESC_ALARM) AND .AED_B_ITEM EQL MAX_ACCESS_INDEX 
4 THEN AED_B_ITEM = 0; 
711 iit the object is not a dir ctory and the item index points to the DEFAULT 
rie ten, and the field index is within the OPTIONS field, skip to the next 
ae 4 i NOT .AED_L FLAGSCAED_V pinects pay } 
716 6 AED_B B FIELD GEQ 2 AND .AED_B_FIELD LEQ 5 AND .AED_B_ITEM EQL 0 


nspSponer Hboseo-t9Re 25:52:20 MIT BLingasZ vaoc7eg, | Page 26 


; 1 1 THEN AED_B_ITEM = .AED_B_ITEM + 1; 

; 1 ' i This is the end of the carefully ordered tests. 

: 721 116 

: y § 118 ! Select the desired item descriptor from the appropriate field name table. 

3 i 4 17 ITEM_DESC = (SELECTONE -AED_B_FIELD OF 

~? 6 117 03; TEM ~TYPEC AED. B_ITEM, ITEM_DSC_SiZE]: 

: 7 117% TO 5): TEM“FLAGL.AED-B-ITEM, ITEM-DSC-SIZEJ; 

: 7 117 6 10 14): TEM“ACCESSL.AED-B_ITEM, ITEM_DSC_SIZE); 

if HE ml 

; 4 1 A ! Replace the old item name with the new one. 

s. ¢ 1180 2 OLD_ITEM_END = MINU (.AED W_ITEMEND, .AED_T_CUR INECL E =S12E - 1); 

; é i 1 2 AED“W_ITEMEND = .AED_W_ITEMBEG + .1fEmM_DESCCOSCS$w_L es 

; f 1 i ! See if it is necessary to wrap the Line. 

ag, 1185 2 IF .AED_W_ITEMEND GTR .AED_L_PAGEWIDTH 

RB TB Macy 

: 741 11 8 AED_SEGSPLIT (TREF (AED WITEMBEG), 1, 0); 

oe 1 E ND = .AED W_ITEMEND - .AED_W_ITEMBEG; 

+ 7% 11 OLD-ITEM_END = _ OLD. ITEM_END - <AED. W7ITEMBEG; 

: 746 1191 AED"W_ITEMBEG 

: 745 119¢ ; 

: 76 1193 

: ee 1138 ! Replace the item. 

; 169 1196 CHSCOPY (.AED_T_CURLINECLINE_W_SIZEJ] - .OLD_ITEM_END - 1, BUFFERC.OLD_ITEM_END + 1), 
; 731 B+ | {1 - -AED_W_ITEMEND, BUFFERL.AED_W bose ND + 1])); ! Remove old name 
SS. : 11 CHSMOVE (. ITER ESCCDSC$SW_LENGTHJ, .1TEM_DESCLDSCSA =POINTERI, 

: 7 1 BUF FER .AED_W IT MBEG)); Ins rt ne 

: 754 1 AEDT CURLINE LINE W°STZE) = 1 7Atb. T_CURLINECLINE_W_ SI2E “OLD. ITEM_END + .AED_W_ITEMEND; 
; g 5 1 INDEX AED_W_ITEMEND + 1; 

; 6 i AED_L “FLAGSCAED™ VIMODIFIED] ='1; ! Note ACE has changed 

; , § OS 2 RETURN 0; 

: 760 120 END; ! End of routine AED_SELECTITEM 


-PSECT SOWNS,NOEXE ,2 


09000000 00000 JOURNAL_ACES: 
-LONG 0 3 


-PSECT SCODES,NOWRT,2 
OFFC 00000 -ENTRY AED_SELECTITEM, Save R2,R3,R4,R5,R6,R7,R8,- ; 1050 


ao a YF 


50 


50 


1 


6A 


oc 


FF66 


aaa 
ink 


52 


07 
01 


0000" 


oc 


SOOM UVMNVUUMVUUI & 


POPS ON FS MNO NSS OS 


Frou OwMowow 
Pm —~woneo>r 


o 
co 


9 
18-se0-1 


Dd 18 
i 
: 
i . 
: i: 
i Hes 
foe 
1 Hise 
1 i? 
1 His 
HBS 
Wee 
: : 
1 
1 
1 RS 


— 
oF 
oT 


me 
CF 
oe oe 


o 
sad 


7$: 


8 FFi82:87 — EACCEOr°SReSAEbPROnPT 882:1 


+8, R11 
A, Ri 


» MAX_ITEM_VAL 


, MAX_ITEM_VAL 
> #8,~AED_B_ITEM, MAX_ITEM_VAL 


AED_B_ITEM 
6 
AEO_B ITEM, R1 
TEM_TYPE+8(R1], AED_B_ACETYPE 


D_G_ACETYPE, 1 
a? 


. 7 a 
= = ® 
oOo uw oO 


AED_L_FLAGS+2, 8$ 
RNALTATES, 9$ 


* Ce 
a 
™ 


PHAR — ONS HH Hom 
7 
eo 
w 


™ 
a 
= 


FD_e ITEM 
#0."W8, AED_B_ITEM, MAX_ITEM_VAL 
pale 


re, 
R2, #7 
AED -B_ACETYPE. #1 
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05 C AFD_B_ITEM, #5 ; 
A BNEQ ; 
A A MOVB so, AgD_B_ITEN + 1147 
3 AC 11$: CMPB 2. # : 1152 
A 16 QOOAF BLSSU 128 ; 
05 2 1 00081 CAPR ORG, #5 : 
A 00084 BGTRU : 
03 A 86 CHPB AED _B. ITEM, #3 : 
08 5 BB 128: a3 t . #8 : 1153 
A if *  BLSSU : 
0 0c AA A e MOVZBL +A -B_ACETYPE, RO : 
, A 44 000e ora 
05 3 9 (9 CMPB m9 8S + 1154 
1 0 CC BEQL 3 ; 
sei $ 3 905 gNEG 1 " £1999 
07 6A 9 000 138: cHPB AED_6_ITEM, #7 : 

0 He Sb AUER SE: ERP SEPM acs, iy 
. ie Se Le 
05 +] 91 O00E CMPB)éR2, &#5 : 

06 1A O00E8 BGTRU : 
Bat Ge pete ; 

6A 9 BOE INCB —AED_B_ITEM : 1166 

2 D5 OOOFO 16$:  TSTL Re : 1173 
50 +4 $f Sor COVE L h ; 8, TEM, RO : 
50 § c 00F7 MULLS rite : 
58 F8 ABG OOFA MOVAB i My PECROI. ITEM_DESC : 
3 ii OOF BRB : 

13 15 00101 17$:  — BLEQ + 1176 
05 3 91 00103 CMPB Ree a5 : 
; oh i ae A : B_ITEM, RO : 
28 b¢ 4 001 ote: ita ’ ; 
iT. 008¢ cB oe 1 ROVAB TEA Pr astned, ITEM_DESC 

06 91 116 18$:  CMPB  R2, #6 > 1175 
i 1 Bissu 19 : 
OE 1 00118 CMPBR2, #14 : 
18 0011 BLEQU 208 : 
58 1 ij 198 RNEGL a ITEM_DESC : 
A 9A 00125 208 MOVZBL Arb 8 TEM, RO : 
o t 001 MULES” RIOT 
TEM_ACCESSCRO], ITEM_DESC : 

Hoong lh BR, i LiMn iss 
50 08 AA ic 1 ; ROV WL AED_W_ITEMEND, RO : 
, tt : 
50 1 Mi 1 5 MOVL 1, RO : 


DSPROMPT {8 -1 :57: AX-11 Bliss-32 V4.0-74 
ree 12-808-]382 $9535 599 FACLEDT SRESAEDPROMPT .B 2:1 
50 pO 00143 228: mov RO, OLD_ITEM_END 
04 AA ic 1 ROVuL AEB OT TEMBES RO 
: 146A V2WL (ITEM"DESC), 1 
C6 0014 ADDL2 Ri, R 
oe AA 1 A3 001 WS #1, RO, AEDWI 
FF7C «OCA AA 0 p 3 cHPZV 4 { #16, AED_O_ TFEHEND, AED_L_PAGEWIDTH 
E 1 7D 001 MOVa #1, =(SP) 
08 AE 4 AA 3C 001 MOVZWL hes W_ITEMBEG, 8(SP) 
8 AE 9F 001 PUSHAB BSP) 
00006 CF 03 FB O0016A CALL AED_SEGSPL 
AA 4 AA , 16F SUBW2  AED_W “ITENBEG. Ag. W_ITEMEND 
20 4 AA 174 MOVZWL A D"W~ITEMBEG 
50 ¢2 00178 SUBL2 “oro ITEM énp 
04 AA : 1 CLRW NE 6_w_ITEMBEG 
59 1c AA 17E 23% MOVZWL AED T-CURLINE+8, R9 
9 5 1 SUBL2 OL aayen END. Rd 
1 FF AS 9E 001 MOVAB -1(R9), R 
& 08 AA g 189 MOV ZWL AED. W {TEMEND, R6 
50 000001FF F & 01 SUBL3 R6, #511, RO 
50 00 1 A247 1 2c 0019 mMovcS = R1. “1 ¢0bb. ITEM_END)CBUFFER], #0, RO, 1(R6)- 
01 A647 19¢ CBUFFER 
50 04 «AA ¢ 19F MOVZWL AED W_ITEMBEG, RO 
6047 04 88 8 O1A3 MOVCS CITEMTDESC), @4(ITEM_DESC), (RO)CBUFFERI 
1C =A 6 Ai 001A9 ADDW ROR RJ, AED_T_CURLINE+ 
0 8B 56 01 Al OOIAE ADDW3 #1. R6, @INDER 
FF64 CA 80 8F 4 00183 8188 #128, AED_L_FLAGS 


3; Routine Size: 442 bytes, Routine Base: S$CODE$ + 03B8C 
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. } p GLOBAL ROUTINE AED_SETACETYPE (INDEX) : NOVALUE = 

; 1 lee 

3 121 ' 

: 2 ; } ! : FUNCTIONAL DESCRIPTION: 

: ; 121 1! This routine selects the text teen RED B ACE to fhe descired ACE type 
$ £6 1215 1! based upon the previous AC ty e (AED_B_ACETYPE) if available, or the 
: a ! : : } current item index (AED_B_ITEM) if not.” 

; 1218 1 | CALLING SEQUENCE 

; ! 1 H AED  SETACETYPE (ARG1) 

: 775 1 i INPUT PARAMETERS: 

: org ! § ! } ARG1: address of the word containing the current buffer position 

: 77 1204 1! 

3 re 1225 1! IMPLICIT INPUTS: 

3; 780 1 $ 1! AED ~ -ACETYPE: current ACE type if non-zero 

3 78s ' : : AED-B_ITEM: current item index if above is zero 

ge 1 8 1! ouTPUT PARAMETERS: 

3 g : ' , } ARG1: address of the word to contain the new buffer position 

: 7 1 1 ! ROUTINE VALUE: 

: TB : ; : : none 

: 789 1235 1 ! SIDE EFFECTS: 

; 790 1 § 1! none 

2c ae 

; 138 1 5 1 

3 oe } “9 BEGIN 

; 796 1 4g MAP 

3 a4 ; rt INDEX : REF VECTOR C,WORD]; ! Address of the size word 
: 799 1245 2 LOCAL : 

3 1 48 BUFFER : REF VECTOR C,BYTE), ! Address of text storage 
3 : ? ITEM_DESC : REF S$BBLOCK; ! Address of item descriptor 
; ‘3 ! Set up the initial delimiter. 

; 1251 BUFFER = AED,1 CURL INECLINE. T_TEXT); 

: ! § BUFFERCO] = 

; ' ¢ ! Determine where the ACE type is to be set from, and set it up. 

; 1 If jAFD B_ACETYPE EOL 0 

3 1 $ Oi TEM-DESC = ITEM_TYPEL.AED -B. ACETY ITEM pst C_SIZEJ 

3 : 28 ets E ITEM_DESC = ITEM_TYPEL.AED_B_ITEM, Pe en “ost Size 

: 1260 Sept CUR . ITEM_DESCCDSC$W_LENGTH), TEM_DESCCOSCSA_POINTER], BUFFERC1]); 
; ' 6 AED_T URLINECC INE_W_SIZEJ = INDEXCO) = = TITEM_DESCCBSC PSU euéTHY +1; 

; 126 ne Tuna: 

3 1264 


Sm 


1$-se0-1964 25:57:20 YAKe1! oLienas2 va 0-742, 
1265 1 END; ! End of routine AED_SETACETYPE 


0000" CF 
0000' ; 
Dd 


#12, RO 
fa fpe-12CR0), ITEM_DESC 
TEM, RO 


ae 


0000" CF 
00000000' EF 40 
66 


3 
" 


04 C), 1(BUFFER) 


SOOCCOCoOoCoOoOoOoOoOoOoOSooo 


COOOCoCCoOoooooooooo 


ew 
NMS ONEMOUMNO LP 


0000° 


; Routine Size: 67 bytes, Routine Base: S$CODE$S + 0576 


$ 1 
1267 1 END 
1268 0 ELUDOM 


PSECT SUMMARY 
Name Attributes 
AED_ COMMON NOVEC, WRT, MONE pte gs 
AED_ITEM_PLIT NOVEC ,NOWRT, NOEXE .NO 
SPLITS NOVEC ,NOWRT, *NOEXE, NOSHR 
scooes NOVEC ,NOWRT, e EXE .NOSHR, 
NOVEC, WRT, eNOEXE ,NOSHR, 


Library Statistics 


Symbols Pages Processing 
File Total Loaded Percent Mapped Time 


Ror Rt a a a i 


Sm 
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; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:AEDPROMPT/OBJ=OBJ$:AEDPROMPT MSRC$: AEDPROMPT/UPDATE=(ENHS$: AEDPROMPT) 
; i 1465 ¢ Go: 38" + 1888 data bytes 

; Elapsed. Tine 

; Lines/CPU Mi pi 

3 Lexenes/CPU-Rin: 2034 

; ed: 440 pages 


NT CORPORATION 


ee goo as oe D PROPRIETARY 
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